Aminet 4/Aminet 4 - November 1994.iso/aminet/dev/m2/m2_part1.lha/modula/examples/src/args.mod

Text File | 1994-07-30 | 148b | 13 lines

MODULE args ;

IMPORT M2Lib, StdIO ;

VAR
  x : LONGINT ;

BEGIN
  FOR x := 0 TO M2Lib.argc-1 DO
    StdIO.puts( M2Lib.argv^[x] )
  END ;
END args.